﻿Public Class CFondoBench
    Private _strFondo As String
    Private _strBench As String
    Private _blnEsEditableNuevo As Boolean

    Public Sub New()
        _strFondo = ""
        _strBench = ""
        _blnEsEditableNuevo = False
    End Sub

    Public Sub New(ByVal Fon As String, ByVal Ben As String)
        _strFondo = Fon
        _strBench = Ben
        _blnEsEditableNuevo = False
    End Sub

    Public Sub New(ByVal Fon As String, ByVal Ben As String, ByVal EditableNuevo As Boolean)
        _strFondo = Fon
        _strBench = Ben
        _blnEsEditableNuevo = EditableNuevo
    End Sub

    Public Property FONDO As String
        Get
            FONDO = Me._strFondo
        End Get
        Set(value As String)
            Me._strFondo = value
        End Set
    End Property

    Public Property BENCH As String
        Get
            BENCH = Me._strBench
        End Get
        Set(value As String)
            Me._strBench = value
        End Set
    End Property

    Public Property EsEditableNuevo As Boolean
        Get
            EsEditableNuevo = Me._blnEsEditableNuevo
        End Get
        Set(value As Boolean)
            Me._blnEsEditableNuevo = value
        End Set
    End Property
End Class
